﻿Imports Ocean.OceanFramework.CommonDialog

Namespace MVVM

    Public Class LogEventArgs

#Region " Declarations "

        Private _enumCustomDialogResult As CustomDialogResult = CustomDialogResult.None
        Private _intButtonsDisabledDelay As Integer = 0
        Private _objException As Exception = Nothing
        Private _strInstructionHeading As String = String.Empty
        Private _strInstructionText As String = String.Empty

#End Region

#Region " Properties "

        Public ReadOnly Property ButtonsDisabledDelay() As Integer
            Get
                Return _intButtonsDisabledDelay
            End Get
        End Property

        Public ReadOnly Property CustomDialogResult() As CustomDialogResult
            Get
                Return _enumCustomDialogResult
            End Get
        End Property

        Public ReadOnly Property Exception() As Exception
            Get
                Return _objException
            End Get
        End Property

        Public ReadOnly Property InstructionHeading() As String
            Get
                Return _strInstructionHeading
            End Get
        End Property

        Public ReadOnly Property InstructionText() As String
            Get
                Return _strInstructionText
            End Get
        End Property

#End Region

#Region " Constructor "

        Public Sub New(ByVal enumCustomDialogResult As CustomDialogResult, ByVal strInstructionHeading As String, ByVal strInstructionText As String, ByVal intButtonsDisabledDelay As Integer, ByVal objException As Exception)
            _enumCustomDialogResult = enumCustomDialogResult
            _strInstructionHeading = strInstructionHeading
            _strInstructionText = strInstructionText
            _intButtonsDisabledDelay = intButtonsDisabledDelay
            _objException = objException
        End Sub

        Public Sub New(ByVal objException As Exception)
            _objException = objException
        End Sub

#End Region

    End Class

End Namespace
